home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / others / amimacro.zip / FRAMMACS.SMM < prev    next >
INI File  |  1992-12-13  |  24KB  |  1,273 lines

  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet IIISi PostScript
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [desc]
  18.     Load and save frames in macrofiles
  19.     Lotus WPD Technical Support
  20.     Advanced
  21.     InsertMenuItem
  22.     autorun
  23.     724294065
  24.     171
  25.     697392920
  26.     4450
  27.     5
  28.     1574
  29.     13141
  30.     33
  31.     33
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [tag]
  54.     Body Text
  55.     2
  56.     [fnt]
  57.         Times New Roman
  58.         200
  59.         0
  60.         49152
  61.     [algn]
  62.         1
  63.         1
  64.         0
  65.         0
  66.         0
  67.     [spc]
  68.         33
  69.         273
  70.         1
  71.         0
  72.         0
  73.         1
  74.         100
  75.     [brk]
  76.         4
  77.     [line]
  78.         8
  79.         0
  80.         1
  81.         0
  82.         1
  83.         1
  84.         1
  85.         10
  86.         10
  87.         1
  88.     [spec]
  89.         0
  90.         0
  91.         
  92.         0
  93.         1
  94.         1
  95.         0
  96.         0
  97.         0
  98.         0
  99.     [nfmt]
  100.         280
  101.         1
  102.         2
  103.         .
  104.         ,
  105.         $
  106.     Body Text
  107.     0
  108.     0
  109. [tag]
  110.     dialogbox
  111.     3
  112.     [fnt]
  113.         Times New Roman
  114.         200
  115.         0
  116.         49152
  117.     [algn]
  118.         1
  119.         1
  120.         0
  121.         0
  122.         0
  123.     [spc]
  124.         33
  125.         273
  126.         1
  127.         0
  128.         0
  129.         1
  130.         100
  131.     [brk]
  132.         36
  133.     [line]
  134.         8
  135.         0
  136.         1
  137.         0
  138.         1
  139.         1
  140.         1
  141.         10
  142.         10
  143.         1
  144.     [spec]
  145.         0
  146.         0
  147.         
  148.         0
  149.         1
  150.         1
  151.         0
  152.         0
  153.         0
  154.         0
  155.     [nfmt]
  156.         280
  157.         1
  158.         2
  159.         .
  160.         ,
  161.         $
  162.     dialogbox
  163.     12
  164.     1
  165.     720
  166.     1
  167.     1135
  168.     1
  169.     1440
  170.     1
  171.     1824
  172.     1
  173.     2566
  174.     1
  175.     2880
  176.     1
  177.     3254
  178.     1
  179.     3643
  180.     1
  181.     3979
  182.     1
  183.     4367
  184.     1
  185.     5815
  186.     32771
  187.     11430
  188.     0
  189. [lay]
  190.     Standard
  191.     519
  192.     [rght]
  193.         15840
  194.         12240
  195.         1
  196.         331
  197.         1080
  198.         1
  199.         1440
  200.         331
  201.         4
  202.         1
  203.         0
  204.         3
  205.         24
  206.         2
  207.         1
  208.         331
  209.         11909
  210.         5
  211.         1
  212.         720
  213.         1
  214.         1440
  215.         1
  216.         2160
  217.         1
  218.         2880
  219.         32771
  220.         11430
  221.     [hrght]
  222.     [lyfrm]
  223.         1
  224.         11200
  225.         0
  226.         0
  227.         12240
  228.         1440
  229.         0
  230.         1
  231.         3
  232.         1 0 0 0 0 0 0
  233.         0
  234.         0
  235.         1
  236.     [frmlay]
  237.         1440
  238.         12240
  239.         1
  240.         360
  241.         0
  242.         1
  243.         360
  244.         360
  245.         0
  246.         1
  247.         0
  248.         1
  249.         1
  250.         0
  251.         1
  252.         360
  253.         11880
  254.         1
  255.         3
  256.         9360
  257.     [txt]
  258. <+B><:f240,,>Frame Macros<:f><:f240,,> Version 1.0<:f>
  259.  
  260. <+B><:s><:f160,,>by
  261.  
  262. <+B><:f160,,>Kurtis Kruse<:f>
  263.  
  264. <+B>
  265.  
  266. <+B>
  267.  
  268. >
  269.     [frght]
  270.     [lyfrm]
  271.         1
  272.         13248
  273.         0
  274.         14760
  275.         12240
  276.         15840
  277.         0
  278.         1
  279.         3
  280.         1 0 0 0 0 0 0
  281.         0
  282.         0
  283.         2
  284.     [frmlay]
  285.         15840
  286.         12240
  287.         1
  288.         1440
  289.         576
  290.         1
  291.         14832
  292.         360
  293.         0
  294.         1
  295.         0
  296.         1
  297.         1
  298.         0
  299.         1
  300.         1440
  301.         11880
  302.         2
  303.         2
  304.         4680
  305.         3
  306.         9360
  307.     [txt]
  308. <:R1,2,2,4680,3,10440,>    Release <+,>v2<-,><+,>.2<-,>    June 1st, 1992    Page <:P10,0,> out 
  309. <+,>o<-,>f <:X3,16384;NumPages>7<:X~3,16384;NumPages>
  310.  
  311. >
  312. [elay]
  313. [l1]
  314.     0
  315. [pg]
  316.     5
  317.     55 0 34 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  318.     111 0 8 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  319.     166 0 70 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  320.     220 0 66 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  321.     243 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  322. [edoc]
  323. <:#236,11578><-!><+!>Define IsOKToRun(menuname) GetInfo(217, 24,  <-!><+!>%1<-!><+!>)
  324.  
  325. <:#236,11578><+!>
  326.  
  327. <:#236,11578><+!>FUNCTION FRAMMACS<-!><+!>()
  328.  
  329. <:#236,11578>IF IsNewWave()
  330.  
  331. <:#236,11578>    Message("Macro not available while running under HP NewWave.")
  332.  
  333. <:#236,11578>    Exit Function
  334.  
  335. <:#236,11578>ENDIF
  336.  
  337. <:#236,11578><+!>Init:<-!>
  338.  
  339. <:#236,11578>    FileChanged(1,1)
  340.  
  341. <:#236,11578>    Curdoc=GetOpenFileCount()    <+">'Test to see if a document is open. If not will have to exit macro.<-">
  342.  
  343. <:#236,11578>    If CurDoc= 0
  344.  
  345. <:#236,11578>        Message("For this macro to run properly a document must be open. Please open a document and rerun the macro.")
  346.  
  347. <:#236,11578>        Exit Function
  348.  
  349. <:#236,11578>    Endif
  350.  
  351. <:#236,11578>    ONERROR Tost        <+">    'If<-"><+"> error this macro will reset original conditions.<-">
  352.  
  353. <:#236,11578>    Macpath = GetMacPath$ ()    <+">'Obtaines the default macro path in which<-"><+"> this macro should be stored<-">.
  354.  
  355. <:#236,11578>    Docpath= GetmacPath$()    <+">    'Obtaines the default Macro<-"><+"> path in which<-"><+"> the glossary data file(s) is stored.<-">
  356.  
  357. <:#236,11578>    Icon=DeleteMenuItem(1,"F&rame",  "Frame Macros...")    <+">'Clear the menu if macro had already been run.<-">
  358.  
  359. <:#236,11578>    InsertMenuItem(1,"F&rame", 7, "Frame Macros...", "{Macpath}frammacs.smm!Body()", "Load and save frames in a glossary file.")
  360.  
  361. <:#236,11578>    If Icon= 1
  362.  
  363. <:#236,11578>        Call Body()
  364.  
  365. <:#236,11578>        Exit Function
  366.  
  367. <:#236,11578>    ElseIf StatusBarMsg("Installing Frame Glossary.")
  368.  
  369. <:#236,11578>    EndIf
  370.  
  371. <:#236,11578>    Installed=GetprofileString$("FrameMacros", "installed" , "AMIPRO2.INI")    <+">'Reads <[>datafile<-"><+">] section in Amipro2.ini.<-">
  372.  
  373. <:#236,11578>    Inientries=GetprofileString$("FrameMacros", "numberoframes" , "AMIPRO2.INI") 
  374.  
  375. <:#240,11578><+!>Firstime:<-!>                <+">'This section sets up the Amipro2.ini and framglos.sam default data file.<-">
  376.  
  377. <:#236,11578>    If Installed=""
  378.  
  379. <:#236,11578>        Hourglass(1)        <+">'Turns hour glass on.<-">
  380.  
  381. <:#236,11578>        WriteProfileString("FrameMacros", "installed", "yes" , "AMIPRO2.INI")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">
  382.  
  383. <:#236,11578>        WriteProfileString("FrameMacros", "numberoframes", "0" , "AMIPRO2.INI")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">
  384.  
  385. <:#236,11578>        Hourglass(0)        <+">'Enables screen redraw.<-">
  386.  
  387. <:#236,11578>    EndIf
  388.  
  389. <:#236,11578>    Call Max()            <+">'Runs the routine that maximizes the current<-"><+"> document<-"><+"> if necessary<-">
  390.  
  391. <:#236,11578>    StatusBarMsg("Frame Macros Now Installed.")    <+">'sets ami pro status Bar<-">
  392.  
  393. <:#236,11578>    StatusBarMsg("")        <+">'REsets the ami pro status bar<-">
  394.  
  395. <:s><:#236,11578>    Exit Function
  396.  
  397. <:#236,11578><+!>Tost:<-!>
  398.  
  399. <:s><:#236,11578>    Call Bomb()            <+">'Error Routine<-">
  400.  
  401. <:s><:#236,11578><+!>END FUNCTION<-!>
  402.  
  403. <:s><:#236,11578>
  404.  
  405. <:s><:#236,11578><+!>FUNCTION BODY()<-!>
  406.  
  407. <:#236,11578>    DIM Framemac(100)
  408.  
  409. <:#472,11578>    DEFSTR Width, Height, Top, Left, LM, TM, RM, BM, Units, Border, Pos, Thick, Shade, Background, ShadowColor, SL, ST, SR, SB, Type, Rounded, MacroName;    
  410.  
  411. <:#236,11578>    ONERROR Tost
  412.  
  413. <:#236,11578>    Macpath = GetMacPath$ ()    <+">'Obtaines the default macro path in which<-"><+"> this macro should be stored<-">.
  414.  
  415. <:#236,11578>    Docpath= GetmacPath$()    <+">    'Obtaines the default Macro<-"><+"> path in which<-"><+"> the glossary data file(s) is stored.<-">
  416.  
  417. <:#236,11578>    FileChanged(1,1)
  418.  
  419. <:#236,11578>    Curdoc=GetOpenFileCount()
  420.  
  421. <:#236,11578>    If CurDoc= 0
  422.  
  423. <:#236,11578>        Message("For this macro to run properly a document must be open. Please open a document and rerun the macro.")
  424.  
  425. <:#236,11578>        Exit Function
  426.  
  427. <:#236,11578>    Endif
  428.  
  429. <:#236,11578><:f,2Times New Roman,>    Mode = GetMode()        <+"> 'What mode is the screen in?<-">
  430.  
  431. <:#236,11578><:f,2Times New Roman,>    IF Mode != 1
  432.  
  433. <:#236,11578><:f,2Times New Roman,>        LayoutMode()        <+"> 'If not Layout Mode, change it to be Layout.<-">
  434.  
  435. <:#236,11578><:f,2Times New Roman,>    ENDIF<:f>
  436.  
  437. <:#236,11578><+!>Init:<-!>
  438.  
  439. <:#236,11578>    Docpath= GetmacPath$()    <+">    'Obtaines the default document path in which<-"><+"> the glossary data file is stored.<-">
  440.  
  441. <:#236,11578>    Inientries=GetprofileString$("FrameMacros", "numberoframes" , "AMIPRO2.INI")    <+">'Reads <[><-"><+">FrameName<-"><+">] section in Amipro2.ini.<-">
  442.  
  443. <:#236,11578>    For x=1 to Inientries        <+">'This section skips deleted entries.<-">
  444.  
  445. <:#236,11578>        Namentry=(GetprofileString$("FrameMacros", "name{x}" , "AMIPRO2.INI"))    <+">'In addition<-"><+"> it writes valid entries<-"><+"> to<-">
  446.  
  447. <:#236,11578>        If {Namentry} != "DELETED"    <+">'the display dialog box.<-">
  448.  
  449. <:#236,11578>            FillEdit(9000, {Namentry})    <+">'Puts the name of the frame<-"><+"> into the dialog box<-">
  450.  
  451. <:#236,11578>            framemac(x)=namentry
  452.  
  453. <:#236,11578>        EndIf
  454.  
  455. <:s><:#236,11578>    Next
  456.  
  457. <:#236,11578>    DlgKeyInterrupt(112, "{Macpath}frammacs.smm!DisplayHelp")
  458.  
  459. <:#236,11578>    Displayboxresult=DialogBox(".","<++>Display<-+>")    <+">'Displays main<-"><+"> option dialog box.<-">
  460.  
  461. <:s><:#236,11578><+!>Body:<-!>
  462.  
  463. <:#236,11578>    If Displayboxresult=1         <+">'Return value of 1<-"><+"> from dialog box  signifies retrieve frame and begins loop.<-">
  464.  
  465. <:#236,11578>        Hourglass(1)
  466.  
  467. <:#236,11578>        Fieldin=GetDialogField$(8000)    <+">'Stores the name of the frame to be retrieved<-">
  468.  
  469. <:#236,11578>        If Fieldin= ""        <+">'Error routine if<-"><+"> no frame is selected.<-">
  470.  
  471. <:s><:#236,11578>            Beep()
  472.  
  473. <:#236,11578>            Message("Please enter the frame name to be retrieved.")
  474.  
  475. <:#236,11578>            Goto Init
  476.  
  477. <:s><:#236,11578>            Exit Function
  478.  
  479. <:#236,11578>        EndIf
  480.  
  481.         mac=0
  482.  
  483. <:#236,11578>        For x=1 to Inientries    'stores the # corresponding to the framename
  484.  
  485. <:#236,11578>            If framemac(x)=Fieldin
  486.  
  487. <:#236,11578>                mac=x
  488.  
  489. <:#236,11578>                break
  490.  
  491. <:#236,11578>            Endif
  492.  
  493. <:#236,11578>        Next
  494.  
  495.         If mac=0
  496.  
  497.             Hourglass(0)
  498.  
  499.             Beep()
  500.  
  501.             Message("{Fieldin} is not a valid frame name.  Please enter a new frame name to be retrieved.")
  502.  
  503.             Goto Init
  504.  
  505.             Exit Function
  506.  
  507.         Endif
  508.  
  509. <:#236,11578>        mactorun="Frame{mac}.smm"
  510.  
  511. <:#236,11578>        macname = strcat$(macpath,mactorun)
  512.  
  513. <:#236,11578>        CALLI macname ()
  514.  
  515. <:#236,11578>        Hourglass(0)
  516.  
  517. <:#236,11578>        Exit Function
  518.  
  519. <:#236,11578>    ElseIf Displayboxresult=3 <+">    'Return value of 3<-"><+"> from dialog box  signifies save<-"><+"> and begins loop.<-">
  520.  
  521. <:#236,11578>        Isframe=IsFrameSelected()
  522.  
  523. <:#236,11578>        If isframe !=1
  524.  
  525. <:#236,11578>            Beep()
  526.  
  527. <:#236,11578>            Message("You must have a frame selected before you can save one. Please try again.")
  528.  
  529. <:#236,11578>            Exit Function
  530.  
  531. <:#236,11578>        Else
  532.  
  533. <:#240,11578>            Result =<+!> IsOKToRun<-!>(FontChange)
  534.  
  535. <:#236,11578>            If  Result=1
  536.  
  537. <:#236,11578>                Beep()
  538.  
  539. <:#236,11578>                Message("This frame is in text mode. Please exit the frame and reselect it.")
  540.  
  541. <:#236,11578>                Exit Function
  542.  
  543. <:#236,11578>            EndIf
  544.  
  545. <:#236,11578>        Endif
  546.  
  547. <:#236,11578>        Hourglass(1)
  548.  
  549. <:#236,11578>        Fieldad=GetDialogField$(8000)
  550.  
  551. <:#236,11578>            For x=1 to Inientries
  552.  
  553. <:#236,11578>            Namentry=GetprofileString$("Framenames", "name{x}" , "AMIPRO2.INI")
  554.  
  555. <:#236,11578>            If Fieldad=Namentry    <+">'Error routine for duplicate frame names.<-">
  556.  
  557. <:s><:#236,11578>                Beep()
  558.  
  559. <:#236,11578>                Message("This frame name already exists in the current data file. Please use a unique name.")
  560.  
  561. <:#236,11578>            Goto init    <+">'Loop back to beginning
  562.  
  563. <:#236,11578>            EndIf
  564.  
  565. <:s><:#236,11578>            Next
  566.  
  567. <:#236,11578>            If Fieldad= ""    <+">'<-"><+">Error routine fo<-"><+">r no frame name entered.<-">
  568.  
  569. <:s><:#236,11578>                Beep()
  570.  
  571. <:#236,11578>                Message("Please enter the frame name to be saved.")
  572.  
  573. <:#236,11578>                Goto Init
  574.  
  575. <:#236,11578>            EndIf
  576.  
  577. <:#236,11578>        Darkmode(1)
  578.  
  579. <:#236,11578>        GetCurFrameLines(&Border, &Pos, &Thick, &Shade, &Background, &ShadowColor, &SL, &ST, &SR, &SB)
  580.  
  581. <:#236,11578>        GetCurFrameBorders(&Width, &Height, &Top, &Left, &LM, &TM, &RM, &BM, &Units)
  582.  
  583. <:#236,11578>        GetCurFrameType(&Type, &Rounded, &MacroName)
  584.  
  585. <:#236,11578>        If MacroName=""
  586.  
  587. <:#236,11578>            MacroName=""""""
  588.  
  589. <:#236,11578>        Endif
  590.  
  591. <:#236,11578>        Add1=inientries + 1    <+">'Increment frame counter one to account for new frame<-">
  592.  
  593. <:#236,11578>        New("_macro.sty",1,0)
  594.  
  595. <:#236,11578>        Type("FUNCTION Frame{add1}() ' Macro to create the frame '{fieldad}' for Frammacs.smm<[>ENTER]")
  596.  
  597. <:#236,11578>        Type("Darkmode(1)<[>ENTER]")
  598.  
  599. <:#236,11578>        Type("Addframe(0, 0, 1440, -1440)<[>ENTER]")
  600.  
  601. <:#236,11578>        Type("FrameModInit()<[>ENTER]")
  602.  
  603. <:#236,11578>        Type("FrameModBorders({Width}, {Height}, {Top}, {Left}, {LM}, {TM}, {RM}, {BM}, {Units})<[>ENTER]")
  604.  
  605. <:#472,11578>        Type("FrameModLines({Border},{Pos}, {Thick}, {Shade}, {Background}, {ShadowColor}, {SL}, {ST}, {SR}, {SB})<[>ENTER]")
  606.  
  607. <:#236,11578>        Type("FrameModType({Type}, {Rounded}, {MacroName})<[>ENTER]")
  608.  
  609. <:#236,11578>        Type("FrameModFinish()<[>ENTER]")
  610.  
  611. <:#236,11578>        Type("Darkmode(0)<[>ENTER]")
  612.  
  613. <:#236,11578>        Type("END FUNCTION<[>ENTER]")
  614.  
  615. <:#236,11578>        Des = "Macro to create the frame '{fieldad}' for <++>Frammacs.smm<-+>"
  616.  
  617. <:#236,11578>        macfilename=Strcat$(MacPath,"FRAME{add1}.SMM")
  618.  
  619. <:#236,11578>        SaveAs(macfilename,  32, Des,  "" )
  620.  
  621. <:#236,11578>        FileClose()
  622.  
  623. <:#236,11578>        Darkmode(0)
  624.  
  625. <:#236,11578>        WriteProfileString("FrameMacros", "numberoframes", Add1 , "AMIPRO2.INI")    <+">'makes this change<-"><+"> in<-"><+"> Amipro2.ini<-"><+">.<-">
  626.  
  627. <:#236,11578>        WriteProfileString("FrameMacros", "name{Add1}" , fieldad , "AMIPRO2.INI")    <+">'<-"><+">'Adds frame name<-"><+"> to Amipro2.ini<-"><+">.<-">
  628.  
  629. <:#236,11578>        Hourglass(0)
  630.  
  631. <:#236,11578>        Exit Function
  632.  
  633. <:#236,11578>    ElseIf    Displayboxresult =4    <+">'Return value of 4<-"><+"> from dialog box  signifies deletion<-"><+"> and begins loop.<-">
  634.  
  635. <:#236,11578>        Hourglass(1)
  636.  
  637. <:#236,11578>        Fielddel=GetDialogField$(8000)
  638.  
  639. <:#236,11578>            If Fielddel= ""    <+">'<-"><+">Error routine fo<-"><+">r<-"><+"> no frame name entered.<-">
  640.  
  641. <:s><:#236,11578>                Beep()
  642.  
  643. <:#236,11578>                Message("Please enter frame name to be deleted.")
  644.  
  645. <:#236,11578>                Goto Init
  646.  
  647. <:s><:#236,11578>                Exit Function
  648.  
  649. <:#236,11578>            EndIf
  650.  
  651. <:#236,11578>        For x=1 to Inientries
  652.  
  653. <:#236,11578>        Namentry=GetprofileString$("FrameMacros", "name{x}" , "AMIPRO2.INI")
  654.  
  655. <:#236,11578>            If Namentry=Fielddel
  656.  
  657. <:#236,11578>                WriteProfileString("FrameMacros", "name{x}", "DELETED", "AMIPRO2.INI")
  658.  
  659. <:#236,11578>            EndIf        <+">'Tags the frame as being deleted.<-">
  660.  
  661. <:s><:#236,11578>        Next
  662.  
  663. <:#236,11578>        Hourglass(0)
  664.  
  665. <:s><:#236,11578>        Exit Function
  666.  
  667. <:#236,11578>    ElseIf  Displayboxresult=5<+">     '<-"><+">5<-"><+"> Signifies Cancel. Before ending macro will reset to original condition.<-">
  668.  
  669. <:s><:#236,11578>        Call Max()
  670.  
  671. <:s><:#236,11578><:f,2Times,>        IF Mode = 48
  672.  
  673. <:#236,11578><:f,2Times,>            OutlineMode()    <:f><+"> ' To change back to original view.<-">
  674.  
  675. <:#236,11578><:f,2Times,>        ElseIf<:f><:f,2Times,> Mode = 16
  676.  
  677. <:#236,11578><:f,2Times,>            DraftMode()
  678.  
  679. <:#236,11578><:f,2Times,>        EndIf<:f>
  680.  
  681. <:#236,11578>        Hourglass(0)
  682.  
  683. <:s><:#236,11578>        Exit Function
  684.  
  685. <:#236,11578>    EndIf
  686.  
  687. <:s><:#236,11578>    <+!>Exit Function<-!>
  688.  
  689. <:#240,11578><+!>Tost:<-!>                    <+">'Error Routine.<-">
  690.  
  691. <:#236,11578>Darkmode(0)
  692.  
  693. <:#236,11578>Call Bomb()
  694.  
  695. <:s><:#236,11578><+!>END FUNCTION<-!>
  696.  
  697. <:s><:#236,11578>
  698.  
  699. <:#240,11578><+!><++>Function Max()<-+><-!><-!>            <+">'Maximizes active document<-"><+"> if it was the only one open before.<-"><-!>
  700.  
  701. <:#236,11578>    Size=GetOpenFileCount()        '<+">Testing if document<-"><+"> window had been maximized or not. If maximized<-">
  702.  
  703. <:#236,11578>    DIM fname(Size)    <+">    ' document<-"><+"> will be<-"><+"> returned to its maximized state.<-">
  704.  
  705. <:#236,11578>    GetOpenFileNames(&Fname)
  706.  
  707. <:#236,11578>    For y=1 to Size
  708.  
  709. <:#236,11578>    Curap=Fname(y)
  710.  
  711. <:#236,11578>    If size=1
  712.  
  713. <:#236,11578>        AppMaximize(curap)
  714.  
  715. <:#236,11578>    EndIf
  716.  
  717. <:#236,11578>    Next
  718.  
  719. <:s><:#236,11578><+!><++>End Function<-+><-!>
  720.  
  721. <:#236,11578>
  722.  
  723. <:#236,11578><+!><++>FUNCTION DisplayHelp()<-+><-!>
  724.  
  725. <:#236,11578>    InsertIntro="<+#>To insert<-#><+#> a frame:<-#>"    <+">'This section creates<-"><+"> the text for<-"><+"> the help screen.<-">
  726.  
  727. <:#236,11578>    Insert="Select the frame name or type it in the Frame text box. Choose Insert."
  728.  
  729. <:#236,11578>    SaveIntro="<+#>To save<-#><+#> a frame:<-#>"
  730.  
  731. <:#236,11578>    Saveit="Select the frame in the document. Chose Frame/Frame Glossary. Type a name in the Frame text box. Choose Save."
  732.  
  733. <:#236,11578>    DeleteIntro="<+#>To delete a frame:<-#>"
  734.  
  735. <:#236,11578>    Deletetext="Select the frame name or type it in the Frame text box. Choose Delete."
  736.  
  737. <:#236,11578>    QuitIntro="<+#>To close the dialog box<-#><+#>:<-#>"
  738.  
  739. <:#236,11578>    Quit="Choose Close."
  740.  
  741. <:#236,11578>    Stop=chr$(13)
  742.  
  743. <:#708,11578>    Filledit (1000, "{InsertIntro}{Stop}{Insert}{Stop}{Stop}{SaveIntro}{Stop}{Saveit}{Stop}{Stop}{DeleteIntro}{Stop}{Deletetext}{Stop}{Stop}{QuitIntro}{Stop}{Quit}")
  744.  
  745. <:#236,11578>    DialogBox(".","Help")        <+">'This overcomes character limit of single<-"><+"> edit box.<-">
  746.  
  747. <:s><:#236,11578><+!><++>END FUNCTION<-+><-!>
  748.  
  749. <:s><:#236,11578>
  750.  
  751. <:#240,11578><+!><++>FUNCTION<-+> <++>Bomb<-!><-+><+!><-+>()<-!><-+><-+><-+>            <+">'Error routine<-">
  752.  
  753. <:#236,11578>    Hourglass(0)
  754.  
  755. <:#236,11578>    StatusBarMsg("")
  756.  
  757. <:s><:#236,11578>    <+!>Exit Function<-!>
  758.  
  759. <:s><:#236,11578><+!><++>END FUNCTION<-+><-!>
  760.  
  761. <+B><:#236,11578><+!><+#>'The following are dialog boxes called in functions above.<-#><-!>
  762.  
  763. @dialogbox@<:#236,11578><-!><-!><-!><-+>
  764.  
  765. @dialogbox@'This sections sets up builds the main dialog box<-+><-!><-!><-!><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+>
  766.  
  767. @dialogbox@<-+><-!>DIALOG    Display
  768.  
  769. @dialogbox@-2134376448    8    129    58    174    153    ""    "AmiDialog"    "Frame Glossary"
  770.  
  771. @dialogbox@FONT    8    "Helv"
  772.  
  773. @dialogbox@7    16    118    12    8000    1350631552    "edit"    ""    0 
  774.  
  775. @dialogbox@7    31    84    12    1003    1342177280    "static"    "Current Files:"    0 
  776.  
  777. @dialogbox@7    42    118    110    9000    1352728579    "listbox"    ""    0 
  778.  
  779. @dialogbox@129    5    42    15    1    1342373889    "button"    "&Insert"    0 
  780.  
  781. @dialogbox@129    23    42    15    3    1342373888    "button"    "&Save"    0 
  782.  
  783. @dialogbox@129    41    42    15    4    1342373888    "button"    "&Delete"    0 
  784.  
  785. @dialogbox@129    60    42    16    5    1342373888    "button"    "&Close"    0 
  786.  
  787. @dialogbox@7    5    84    10    1000    1342177280    "static"    "Frame:"    0 
  788.  
  789. @dialogbox@END DIALOG
  790.  
  791. @dialogbox@
  792. @dialogbox@<:#240,11578><-!><-!><-+><+!><++>DIALOG Help<-+><-!>                <+">                        'This section contains info for the help<-"><+"> dialog box.<-"><-">
  793.  
  794. @dialogbox@<:#236,11578>-2143289344     2 148 30 164 180 "" "" ""
  795.  
  796. @dialogbox@<:#236,11578>FONT 8 "Helv"
  797.  
  798. @dialogbox@<:#236,11578>60     160     40     14     1     1342373889 "button"     "OK"     0 
  799.  
  800. @dialogbox@<:#236,11578>4      6     151     145     1000     1342177280 "static"     "" 0 
  801.  
  802. @dialogbox@<:#236,11578><+!><++>END DIALOG<-+><-!>
  803.  
  804. <:#236,11578><-+>
  805.  
  806. @dialogbox@<:#236,11578>
  807.  
  808. >
  809.  
  810. [Embedded]
  811. 00017742
  812. >
  813. [macsum] 7
  814. FRAMMACS 0 0 7 2
  815. BODY 956 0 43 41
  816. Max 4608 0 5 188
  817. DisplayHelp 4828 0 10 200
  818. Bomb 5385 0 1 214
  819. Display 5437 0 -1 222
  820. Help 5917 0 -1 235
  821. [macse]
  822. 14 FRAMMACS
  823. 0 1317
  824. 13
  825. 11 00000109
  826. 0 3 "Macro not available while running under HP NewWave."
  827. 6 0
  828. 15
  829. 9
  830. 0 34 1 1
  831. 0 1050
  832. 13
  833. 8 1
  834. 6 1
  835. 5 0
  836. 18 0
  837. 11 00000284
  838. 0 3 "For this macro to run properly a document must be open. Please open a document and rerun the macro."
  839. 6 0
  840. 15
  841. 9
  842. 20 00000935
  843. 0 295
  844. 13
  845. 8 2
  846. 0 295
  847. 13
  848. 8 3
  849. 0 520 1 "F&rame" "Frame Macros..."
  850. 13
  851. 8 4
  852. 0 527 1 "F&rame" 7 "Frame Macros..." "{2}frammacs.smm!Body()" "Load and save frames in a glossary file."
  853. 6 4
  854. 5 1
  855. 18 0
  856. 11 00000543
  857. 16 Body
  858. 6 0
  859. 15
  860. 9
  861. 10 00000596
  862. 0 789 "Installing Frame Glossary."
  863. 13
  864. 11 00000596
  865. 0 286 "FrameMacros" "installed" "AMIPRO2.INI"
  866. 13
  867. 8 5
  868. 0 286 "FrameMacros" "numberoframes" "AMIPRO2.INI"
  869. 13
  870. 8 6
  871. 6 5
  872. 7 ""
  873. 18 0
  874. 11 00000868
  875. 0 296 1
  876. 0 287 "FrameMacros" "installed" "yes" "AMIPRO2.INI"
  877. 0 287 "FrameMacros" "numberoframes" "0" "AMIPRO2.INI"
  878. 0 296 0
  879. 16 Max
  880. 0 789 "Frame Macros Now Installed."
  881. 0 789 ""
  882. 6 0
  883. 15
  884. 9
  885. 16 Bomb
  886. 6 0
  887. 15
  888. 9
  889. 14 BODY
  890. 5 100
  891. 21 1 [X]
  892. 20 00003622
  893. 0 295
  894. 13
  895. 8 24
  896. 0 295
  897. 13
  898. 8 25
  899. 0 34 1 1
  900. 0 1050
  901. 13
  902. 8 26
  903. 6 26
  904. 5 0
  905. 18 0
  906. 11 00000250
  907. 0 3 "For this macro to run properly a document must be open. Please open a document and rerun the macro."
  908. 6 0
  909. 15
  910. 9
  911. 0 29
  912. 13
  913. 8 27
  914. 6 27
  915. 5 1
  916. 18 1
  917. 11 00000305
  918. 2 210 1
  919. 0 295
  920. 13
  921. 8 25
  922. 0 286 "FrameMacros" "numberoframes" "AMIPRO2.INI"
  923. 13
  924. 8 28
  925. 5 1
  926. 8 29
  927. 6 28
  928. 6 29
  929. 18 2
  930. 12 00000473
  931. 10 00000616
  932. 5 1
  933. 6 29
  934. 3 0
  935. 8 29
  936. 10 00000394
  937. 0 286 "FrameMacros" "name{29}" "AMIPRO2.INI"
  938. 13
  939. 8 30
  940. 6 30
  941. 7 "DELETED"
  942. 18 1
  943. 11 00000603
  944. 0 31 9000 "{30}"
  945. 6 29
  946. 6 30
  947. 23 1
  948. 10 00000438
  949. 0 47 112 "{24}frammacs.smm!DisplayHelp"
  950. 0 26 "." "Display"
  951. 13
  952. 8 31
  953. 6 31
  954. 5 1
  955. 18 0
  956. 11 00001296
  957. 0 296 1
  958. 0 27 8000
  959. 13
  960. 8 32
  961. 6 32
  962. 7 ""
  963. 18 0
  964. 11 00000862
  965. 0 801
  966. 0 3 "Please enter the frame name to be retrieved."
  967. 10 00000305
  968. 6 0
  969. 15
  970. 9
  971. 5 0
  972. 8 33
  973. 5 1
  974. 8 29
  975. 6 28
  976. 6 29
  977. 18 2
  978. 12 00000963
  979. 10 00001038
  980. 5 1
  981. 6 29
  982. 3 0
  983. 8 29
  984. 10 00000884
  985. 6 29
  986. 22 1
  987. 6 32
  988. 18 0
  989. 11 00001025
  990. 6 29
  991. 8 33
  992. 10 00001038
  993. 10 00000928
  994. 6 33
  995. 5 0
  996. 18 0
  997. 11 00001196
  998. 0 296 0
  999. 0 801
  1000. 0 3 "{32} is not a valid frame name.  Please enter a new frame name to be retrieved."
  1001. 10 00000305
  1002. 6 0
  1003. 15
  1004. 9
  1005. 7 "Frame{33}.smm"
  1006. 8 34
  1007. 0 16 "{24}" "{34}"
  1008. 13
  1009. 8 35
  1010. 16 "{35}"
  1011. 0 296 0
  1012. 6 0
  1013. 15
  1014. 9
  1015. 10 00003610
  1016. 6 31
  1017. 5 3
  1018. 18 0
  1019. 11 00003009
  1020. 0 800
  1021. 13
  1022. 8 36
  1023. 6 36
  1024. 5 1
  1025. 18 1
  1026. 11 00001486
  1027. 0 801
  1028. 0 3 "You must have a frame selected before you can save one. Please try again."
  1029. 6 0
  1030. 15
  1031. 9
  1032. 10 00001638
  1033. 0 1313 217 24 251
  1034. 13
  1035. 8 37
  1036. 6 37
  1037. 5 1
  1038. 18 0
  1039. 11 00001638
  1040. 0 801
  1041. 0 3 "This frame is in text mode. Please exit the frame and reselect it."
  1042. 6 0
  1043. 15
  1044. 9
  1045. 0 296 1
  1046. 0 27 8000
  1047. 13
  1048. 8 38
  1049. 5 1
  1050. 8 29
  1051. 6 28
  1052. 6 29
  1053. 18 2
  1054. 12 00001758
  1055. 10 00001967
  1056. 5 1
  1057. 6 29
  1058. 3 0
  1059. 8 29
  1060. 10 00001679
  1061. 0 286 "Framenames" "name{29}" "AMIPRO2.INI"
  1062. 13
  1063. 8 30
  1064. 6 38
  1065. 6 30
  1066. 18 0
  1067. 11 00001954
  1068. 0 801
  1069. 0 3 "This frame name already exists in the current data file. Please use a unique name."
  1070. 10 00000305
  1071. 10 00001723
  1072. 6 38
  1073. 7 ""
  1074. 18 0
  1075. 11 00002066
  1076. 0 801
  1077. 0 3 "Please enter the frame name to be saved."
  1078. 10 00000305
  1079. 0 292 1
  1080. 0 793 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
  1081. 0 795 &2 &3 &4 &5 &6 &7 &8 &9 &10
  1082. 0 794 &21 &22 &23
  1083. 6 23
  1084. 7 ""
  1085. 18 0
  1086. 11 00002223
  1087. 7 """"""
  1088. 8 23
  1089. 6 28
  1090. 5 1
  1091. 3 0
  1092. 8 39
  1093. 2 101 1 "_macro.sty" 1 0
  1094. 0 6 "FUNCTION Frame{39}() ' Macro to create the frame '{38}' for Frammacs.smm[13]"
  1095. 0 6 "Darkmode(1)[13]"
  1096. 0 6 "Addframe(0, 0, 1440, -1440)[13]"
  1097. 0 6 "FrameModInit()[13]"
  1098. 0 6 "FrameModBorders({2}, {3}, {4}, {5}, {6}, {7}, {8}, {9}, {10})[13]"
  1099. 0 6 "FrameModLines({11},{12}, {13}, {14}, {15}, {16}, {17}, {18}, {19}, {20})[13]"
  1100. 0 6 "FrameModType({21}, {22}, {23})[13]"
  1101. 0 6 "FrameModFinish()[13]"
  1102. 0 6 "Darkmode(0)[13]"
  1103. 0 6 "END FUNCTION[13]"
  1104. 7 "Macro to create the frame '{38}' for Frammacs.smm"
  1105. 8 40
  1106. 0 16 "{24}" "FRAME{39}.SMM"
  1107. 13
  1108. 8 41
  1109. 2 104 1 "{41}" 32 "{40}" ""
  1110. 2 147 1
  1111. 0 292 0
  1112. 0 287 "FrameMacros" "numberoframes" "{39}" "AMIPRO2.INI"
  1113. 0 287 "FrameMacros" "name{39}" "{38}" "AMIPRO2.INI"
  1114. 0 296 0
  1115. 6 0
  1116. 15
  1117. 9
  1118. 10 00003610
  1119. 6 31
  1120. 5 4
  1121. 18 0
  1122. 11 00003458
  1123. 0 296 1
  1124. 0 27 8000
  1125. 13
  1126. 8 42
  1127. 6 42
  1128. 7 ""
  1129. 18 0
  1130. 11 00003178
  1131. 0 801
  1132. 0 3 "Please enter frame name to be deleted."
  1133. 10 00000305
  1134. 6 0
  1135. 15
  1136. 9
  1137. 5 1
  1138. 8 29
  1139. 6 28
  1140. 6 29
  1141. 18 2
  1142. 12 00003268
  1143. 10 00003424
  1144. 5 1
  1145. 6 29
  1146. 3 0
  1147. 8 29
  1148. 10 00003189
  1149. 0 286 "FrameMacros" "name{29}" "AMIPRO2.INI"
  1150. 13
  1151. 8 30
  1152. 6 30
  1153. 6 42
  1154. 18 0
  1155. 11 00003411
  1156. 0 287 "FrameMacros" "name{29}" "DELETED" "AMIPRO2.INI"
  1157. 10 00003233
  1158. 0 296 0
  1159. 6 0
  1160. 15
  1161. 9
  1162. 10 00003610
  1163. 6 31
  1164. 5 5
  1165. 18 0
  1166. 11 00003610
  1167. 16 Max
  1168. 6 27
  1169. 5 48
  1170. 18 0
  1171. 11 00003549
  1172. 2 218 1
  1173. 10 00003589
  1174. 6 27
  1175. 5 16
  1176. 18 0
  1177. 11 00003589
  1178. 2 211 1
  1179. 0 296 0
  1180. 6 0
  1181. 15
  1182. 9
  1183. 6 0
  1184. 15
  1185. 9
  1186. 0 292 0
  1187. 16 Bomb
  1188. 6 0
  1189. 15
  1190. 9
  1191. 14 Max
  1192. 0 1050
  1193. 13
  1194. 8 1
  1195. 6 1
  1196. 21 2 [X]
  1197. 0 1051 &2
  1198. 5 1
  1199. 8 3
  1200. 6 1
  1201. 6 3
  1202. 18 2
  1203. 12 00000136
  1204. 10 00000208
  1205. 5 1
  1206. 6 3
  1207. 3 0
  1208. 8 3
  1209. 10 00000061
  1210. 6 3
  1211. 22 2
  1212. 8 4
  1213. 6 1
  1214. 5 1
  1215. 18 0
  1216. 11 00000195
  1217. 0 1029 "{4}"
  1218. 10 00000103
  1219. 6 0
  1220. 15
  1221. 9
  1222. 14 DisplayHelp
  1223. 7 "To insert a frame:"
  1224. 8 1
  1225. 7 "Select the frame name or type it in the Frame text box. Choose Insert."
  1226. 8 2
  1227. 7 "To save a frame:"
  1228. 8 3
  1229. 7 "Select the frame in the document. Chose Frame/Frame Glossary. Type a name in the Frame text box. Choose Save."
  1230. 8 4
  1231. 7 "To delete a frame:"
  1232. 8 5
  1233. 7 "Select the frame name or type it in the Frame text box. Choose Delete."
  1234. 8 6
  1235. 7 "To close the dialog box:"
  1236. 8 7
  1237. 7 "Choose Close."
  1238. 8 8
  1239. 0 39 13
  1240. 13
  1241. 8 9
  1242. 0 31 1000 "{1}{9}{2}{9}{9}{3}{9}{4}{9}{9}{5}{9}{6}{9}{9}{7}{9}{8}"
  1243. 0 26 "." "Help"
  1244. 6 0
  1245. 15
  1246. 9
  1247. 14 Bomb
  1248. 0 296 0
  1249. 0 789 ""
  1250. 6 0
  1251. 15
  1252. 9
  1253. 6 0
  1254. 15
  1255. 9
  1256. DIALOG Display
  1257. -2134376448 8 129 58 174 153 "" "AmiDialog" "Frame Glossary" 
  1258. FONT 8 "Helv" 
  1259. 7 16 118 12 8000 1350631552 "edit" "" 0 
  1260. 7 31 84 12 1003 1342177280 "static" "Current Files:" 0 
  1261. 7 42 118 110 9000 1352728579 "listbox" "" 0 
  1262. 129 5 42 15 1 1342373889 "button" "&Insert" 0 
  1263. 129 23 42 15 3 1342373888 "button" "&Save" 0 
  1264. 129 41 42 15 4 1342373888 "button" "&Delete" 0 
  1265. 129 60 42 16 5 1342373888 "button" "&Close" 0 
  1266. 7 5 84 10 1000 1342177280 "static" "Frame:" 0 
  1267. DIALOG Help
  1268. -2143289344 2 148 30 164 180 "" "" "" 
  1269. FONT 8 "Helv" 
  1270. 60 160 40 14 1 1342373889 "button" "OK" 0 
  1271. 4 6 151 145 1000 1342177280 "static" "" 0 
  1272. 00017767
  1273.